TDateTimePicker

Otázka od: In g. Zdenek Reznicek

12. 8. 2004 12:01

Zdravim,
nevite nekdo, jak zobrazit prazdnou polozku (prazdny text) v komponente
TDateTimePicker ?

Diky, Zdenek

Odpovedá: Pavel GRATZER

12. 8. 2004 12:48

Od "In g. Zdenek Reznicek" <reznicek@pce.cz>
> Zdravim,
> nevite nekdo, jak zobrazit prazdnou polozku (prazdny text) v komponente
> TDateTimePicker ?
>
> Diky, Zdenek

Ja jsem to vyresil v metode Paint takhle :

procedure TMujDateTime.Paint;
var r:Trect;
begin
  inherited;

  if (not aktivni) // needituji hodnotu
      and (Date<StrToDate('1.1.1950')) then
    begin
      Canvas.Font:=font;
      Canvas.brush.style:=bsSolid;
      Canvas.brush.color:=color;
      r:=Clientrect;
      r.right:=r.right-17; // rozbalovaci tlacitko
     Canvas.Fillrect(r);
   end;
end;

Pavel GRATZER
pavelg@stbk.mcs.cz